home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / PROGRAMMING / PERL.SPK / Perl5001 / pl / Examples / remslash < prev   
Text File  |  1995-05-07  |  404b  |  19 lines
  1.  
  2. if ($#ARGV < 0) {die "Need an argument !\n";}
  3. $dirname = $ARGV[0];
  4. opendir(MYDIR,$dirname) || die "Couldn't open directory!!\n";
  5. @flob = readdir(MYDIR);
  6. #closedir(MYDIR);
  7. foreach $file (@flob)
  8. {
  9.     if ($file =~ m#.*\/[cC]#)
  10.     {
  11.         ($leader = $file) =~ s#(.*)\/.*#\1#;
  12.         $leader =~ tr/A-Z/a-z/;
  13.         $file = $dirname.".$file";
  14.         $leader = $dirname.".$leader";
  15. #        printf "$file\n";
  16.         rename($file,$leader);
  17.     }
  18. }
  19.